home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / DOGS.BAS < prev    next >
BASIC Source File  |  1985-08-08  |  4KB  |  131 lines
  1. 10 CLS:KEY OFF:SCREEN 1
  2. 20 LOCATE 12,16:PRINT "WELCOME TO"
  3. 30 LOCATE 14,16:PRINT "THE    DOG"
  4. 40 LOCATE 16,16:PRINT "   TRACK  "
  5. 50 LOCATE 20,12:INPUT "HIT RETURN TO START ",R$
  6. 60 CLS
  7. 70 LOCATE 2,6:INPUT "HOW MANY PLAYERS ";HM
  8. 80 FOR I=1 TO HM
  9. 90 LOCATE I+4,4:PRINT "PLAYER " I "NAME ":LOCATE I+4,18:INPUT " ",PL$(I)
  10. 100 NEXT I
  11. 110  FOR I=1 TO HM:PD(I)=500:NEXT I
  12. 120 CLS
  13. 130 F=0
  14. 140 DATA BEA GAL,MALI MUTT,OODLES O' POODLES,HERMAN SHEPHERD,AH SO LHAPSO,DAKS HOUND,FOXY TERRIER,BERNARD THE SAINT
  15. 150 FOR I=1 TO 8
  16. 160 READ HN$(I):NEXT I
  17. 170 RESTORE
  18. 180 LOCATE 1,2:PRINT "#"
  19. 190 LOCATE 1,7:PRINT "NAME"
  20. 200 LOCATE 1,27:PRINT "ODDS"
  21. 210 FOR I=1 TO 8
  22. 220 LOCATE I+2,7:PRINT HN$(I):LOCATE I+2:PRINT I
  23. 230 FOR M=1 TO 8
  24. 240 O=INT(VAL(RIGHT$(TIME$,2)))
  25. 250 RANDOMIZE(O)
  26. 260 ODDS(M)=INT(RND*20)+1
  27. 270 NEXT M
  28. 280 FOR B=1 TO 8
  29. 290 LOCATE B+2,24:PRINT ODDS(B)
  30. 300 NEXT B
  31. 310 NEXT I
  32. 320 FOR I=1 TO 8:LOCATE I+2,30:PRINT "TO 1":NEXT I
  33. 330 FOR I=1 TO HM
  34. 340 LOCATE 22,1:PRINT "                             "
  35. 350 LOCATE I+13,1:PRINT PL$(I) " HAS $";PD(I)
  36. 360 LOCATE I+13,20:INPUT "BET ";DB(I),HB(I),POSI$(I)
  37. 370 IF DB(I)>PD(I) THEN 380 ELSE 410
  38. 380 LOCATE 22,1:BEEP:PRINT "YOU DON'T HAVE THAT MUCH!!"
  39. 390 LOCATE I+13,20:PRINT "               "
  40. 400 GOTO 350
  41. 410 IF HB(I)<1 OR HB(I)>8 THEN 420 ELSE 430
  42. 420 LOCATE 22,1:BEEP:PRINT "                             ":LOCATE 22,1:PRINT "NO SUCH DOG!  ":LOCATE I+13,20:PRINT "              ":GOTO 350
  43. 430 IF POSI$(I)="W" OR POSI$(I)="P" OR POSI$(I)="S" THEN 450 ELSE 440
  44. 440 LOCATE 22,1:BEEP:PRINT "                             ":LOCATE 22,1:PRINT "W,P,S  ONLY!":LOCATE I+13,20:PRINT "             ":GOTO 350
  45. 450 IF POSI$(I)="W" THEN POSI(I)=1
  46. 460 IF POSI$(I)="P" THEN POSI(I)=2
  47. 470 IF POSI$(I)="S" THEN POSI(I)=3
  48. 480 NEXT I
  49. 490 CLS
  50. 500 FOR I=0 TO 200 STEP 24
  51. 510 LINE(10,I)-(302,I)
  52. 520 NEXT I
  53. 530 X=2
  54. 540 FOR I=1 TO 8
  55. 550 LOCATE X,2:PRINT I
  56. 560 X=X+3
  57. 570 NEXT I
  58. 580 LINE (25,0)-(25,190)
  59. 590 LINE (300,0)-(300,190)
  60. 591 LINE (302,0)-(302,190)
  61. 610 DRAW "BM 27,12"
  62. 620 H$="F4 D4 R2 U4 R8 D4 R2 U6 R3 U3 L3 D3 L12"
  63. 630 DRAW "XH$;"
  64. 640 DRAW "BM 27,36;XH$;"
  65. 650 DRAW "BM 27,60;XH$;":DRAW "BM 27,84;XH$;"
  66. 660 DRAW "BM 27,108;XH$;":DRAW "BM 27,132;XH$;":DRAW "BM 27,156;XH$;":DRAW "BM 27,180;XH$;"
  67. 670 FOR I=1 TO 2000:NEXT I
  68. 680 SOUND 1000,5:SOUND 600,5
  69. 690 P=27
  70. 700 FOR I=1 TO 8:P(I)=27:NEXT I
  71. 710 FOR KKK=1 TO 30
  72. 720 FOR T=1 TO 8
  73. 730 RN=INT(VAL(RIGHT$(TIME$,2)))
  74. 740 RANDOMIZE(RN)
  75. 750 DI=INT(RND*50)+25
  76. 760 H=INT(RND*8)+1
  77. 770 HS(T)=H
  78. 780 GOSUB 980
  79. 790 FLAG=0
  80. 800 IF FLAG=1 THEN 730 ELSE 810
  81. 810 DST=12:FOR LL=1 TO 8:V(LL)=DST:DST=DST+24:NEXT LL
  82. 820 Y=V(H)
  83. 830 FOR X=P(H) TO P(H)+DI
  84. 840 DRAW "C1;BM=X;,=Y;XH$;"
  85. 850 DRAW "C0;BM=X;,=Y;XH$;"
  86. 860 NEXT X
  87. 870 DRAW "C1;BM=X;,=Y;XH$;"
  88. 880 P(H)=P(H)+DI
  89. 890 FOR JJ=1 TO 8
  90. 900 FOR I=1 TO 3
  91. 910 IF JJ=F1(I) THEN 950 ELSE 920
  92. 920 NEXT I
  93. 930 IF F=3 THEN GOSUB 1070
  94. 940 IF P(JJ)>280 THEN GOSUB 1040 ELSE 950
  95. 950 NEXT JJ
  96. 960 NEXT T
  97. 970 NEXT KKK
  98. 980 FOR L=1 TO 8
  99. 990 FOR K=1 TO 8
  100. 1000 IF HS(L)=HS(K) AND K<>L THEN FLAG=1 ELSE FLAG=0
  101. 1010 NEXT K
  102. 1020 NEXT L
  103. 1030 RETURN
  104. 1040 F=F+1
  105. 1050 F1(F)=JJ
  106. 1060 RETURN
  107. 1070 CLS
  108. 1080 LOCATE 12,14:PRINT "THE FINISH "
  109. 1090 LOCATE 14,16:PRINT HN$(F1(1))
  110. 1100 LOCATE 15,16:PRINT HN$(F1(2))
  111. 1110 LOCATE 16,16:PRINT HN$(F1(3))
  112. 1120 LOCATE 20,4:INPUT "HIT RETURN TO TABULATE BETS ",R$
  113. 1130 FOR I=1 TO 8
  114. 1140 FOR J=1 TO 3
  115. 1150 IF HB(I)=F1(J) AND POSI(I)=>J THEN 1160 ELSE 1180
  116. 1160 PAY(I)= ((1/J)*DB(I))*ODDS(J)
  117. 1170 PAY(I)=INT(PAY(I))
  118. 1180 NEXT J
  119. 1190 NEXT I
  120. 1200 CLS
  121. 1210 FOR I=1 TO 8
  122. 1220 IF PAY(I)=0 THEN 1240 ELSE 1230
  123. 1230 LOCATE I+5,5:PRINT PL$(I) " WON  $ ";PAY(I)
  124. 1240 NEXT I
  125. 1250 FOR I=1 TO 8
  126. 1260 PD(I)=PD(I)-DB(I)+PAY(I)
  127. 1270 NEXT I
  128. 1280 LOCATE 20,4:INPUT "HIT RETURN FOR NEXT RACE ",R$
  129. 1290 ERASE HN$,ODDS,HB,POSI$,POSI,DB,P,HS,V,F1,PAY
  130. 1300 GOTO 120
  131.